home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / misc / AWNP_2-39.lha / AWNP / AWNP-Docs / Demos / CAList < prev    next >
AmigaDOS Script File  |  1999-08-25  |  1KB  |  40 lines
  1. .key dest,all/s,dirs/s,files/s,wide/k,high/k,pat/k
  2. .bra {
  3. .ket }
  4.  
  5.  
  6. ; set text for pattern match in list command
  7. set pat ""
  8. if not {pat$1} eq 1
  9. set pat pat={pat}
  10. endif
  11.  
  12. ; build a temp file defining the gui
  13.  
  14. ; define the window and a list broewser in it
  15. echo >t:thelist.ca  "*"CAList  {dest} *" defg q a cs*nlistbrowser ro lbl *"Name|Size|Date|Time|Protection|Key|Path*" arrows minw {wide$600} minh {high$200} st"
  16.  
  17. ; the lformat creates a list brwser node for each file.
  18. list >>t:thelist.ca {dest} {all} {dirs} {files} $pat lformat "browsernode gt *"%n|%l|%d|%t|%a|%k|%s%s*""
  19.  
  20. ; some disabled menus to display a little info
  21. echo >>t:thelist.ca "menu gt *"Project  |About|$!List wrapper with|$!  GUI by AWNPipe:" noline
  22. echo >>t:thelist.ca "|Author  |$!William H.M. Parker|$! <bill@amitrix.com>*""
  23.  
  24. ;sort list by column 6 (path)
  25. echo >>t:thelist.ca "sort 6"
  26.  
  27. ; open the gui
  28. echo >>t:thelist.ca "open"
  29.  
  30. ; send the file to the pipe
  31. copy t:thelist.ca awnpipe:/xc
  32.  
  33. ; cleanup
  34. delete t:thelist.ca >nil:
  35. unset pat
  36.  
  37. ;The gui only displays information all gadgets are read only. It goes away
  38. ;when the user closes its window
  39.  
  40.